MacFormat UK 38/MF_UK_38_1.iso/Tutorials/AMT Tutorial/SOURCES/oMain_1.k

Text File | 1996-04-17 | 8.6 KB | 425 lines | [TEXT/MPS ]

object oMain_1 is cDefaultContainer
with
    Binder is oBinder;
    Label is -1;
    Items is [
        oFINAL_SCREEN_BLUE_BUTS_1_1,
        o1_red_button_1_2,
        o2_red_button_1_3,
        o3_red_button_1_4,
        o4_red_button_1_5,
        o5_red_button_1_6,
        o6_red_button_1_7,
        oplus_red_button_1_8,
        onegative_red_button_1_9,
        oquit_red_button_1_10,
        oJumanji_movie_1_11,
        oMary_movie_1_12,
        oSense_movie_1_13,
        oNever_movie_1_14,
        omorph_movie_1_16,
        oCredits_movie_1_17
    ];
end;


object oFINAL_SCREEN_BLUE_BUTS_1_1 is cPictureHandler
with
    Duration is -1;
    Supplier is oFINAL_SCREEN_BLUE_BUTS_7_;
    Behavior is cVRBehavior
    has
        Offscreen(theTarget)
            do
                oBinder.SetTransition(oIrisOpen, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object o1_red_button_1_2 is cPictureHandler
with
    Duration is -1;
    Supplier is o1_red_button_1_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                o1_red_button_1_2.Show(not o1_red_button_1_2.IsShown());
                oBinder.Refresh();
                -- No Effect
                oBinder.SetTransition(oIrisOpen, 30);
                oJumanji_movie_1_11.Show(not oJumanji_movie_1_11.IsShown());
                oJumanji_movie_1_11.GoToBeginning();
                oJumanji_movie_1_11.Run(not oJumanji_movie_1_11.IsRunning());
                oBinder.Refresh();
            end;

        Finished(theTarget)
            do
                oJumanji_movie_1_11.GoToBeginning();
                oJumanji_movie_1_11.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 448; Y is 43; Width is 60; Height is 57;
    end;
end;


object o2_red_button_1_3 is cPictureHandler
with
    Duration is -1;
    Supplier is o2_red_button_2_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                o2_red_button_1_3.Show(not o2_red_button_1_3.IsShown());
                oBinder.Refresh();
                -- No Effect
                oBinder.SetTransition(oIrisOpen, 30);
                oMary_movie_1_12.Show(not oMary_movie_1_12.IsShown());
                oMary_movie_1_12.GoToBeginning();
                oMary_movie_1_12.Run(not oMary_movie_1_12.IsRunning());
                oBinder.Refresh();
            end;

        Finished(theTarget)
            do
                oJumanji_movie_1_11.GoToBeginning();
                oMary_movie_1_12.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 519; Y is 43; Width is 64; Height is 60;
    end;
end;


object o3_red_button_1_4 is cPictureHandler
with
    Duration is -1;
    Supplier is o3_red_button_3_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                o3_red_button_1_4.Show(not o3_red_button_1_4.IsShown());
                oBinder.Refresh();
                -- No Effect
                oBinder.SetTransition(oIrisOpen, 30);
                oSense_movie_1_13.Show(not oSense_movie_1_13.IsShown());
                oSense_movie_1_13.GoToBeginning();
                oSense_movie_1_13.Run(not oSense_movie_1_13.IsRunning());
                oBinder.Refresh();
            end;

        Finished(theTarget)
            do
                oJumanji_movie_1_11.GoToBeginning();
                oSense_movie_1_13.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 449; Y is 112; Width is 58; Height is 59;
    end;
end;


object o4_red_button_1_5 is cPictureHandler
with
    Duration is -1;
    Supplier is o4_red_button_4_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                o4_red_button_1_5.Show(not o4_red_button_1_5.IsShown());
                oBinder.Refresh();
                -- No Effect
                oBinder.SetTransition(oIrisOpen, 30);
                oNever_movie_1_14.Show(not oNever_movie_1_14.IsShown());
                oNever_movie_1_14.GoToBeginning();
                oNever_movie_1_14.Run(not oNever_movie_1_14.IsRunning());
                oBinder.Refresh();
            end;

        Finished(theTarget)
            do
                oJumanji_movie_1_11.GoToBeginning();
                oNever_movie_1_14.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 525; Y is 112; Width is 53; Height is 60;
    end;
end;


object o5_red_button_1_6 is cPictureHandler
with
    Duration is -1;
    Supplier is o5_red_button_5_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                o5_red_button_1_6.Show(not o5_red_button_1_6.IsShown());
                oBinder.Refresh();
                -- No Effect
                oBinder.SetTransition(oIrisOpen, 30);
                omorph_movie_1_16.Show(not omorph_movie_1_16.IsShown());
                omorph_movie_1_16.GoToBeginning();
                omorph_movie_1_16.Run(not omorph_movie_1_16.IsRunning());
                oBinder.Refresh();
            end;

        Finished(theTarget)
            do
                omorph_movie_1_16.GoToBeginning();
                omorph_movie_1_16.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 445; Y is 184; Width is 59; Height is 55;
    end;
end;


object o6_red_button_1_7 is cPictureHandler
with
    Duration is -1;
    Supplier is o6_red_button_6_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                o6_red_button_1_7.Show(not o6_red_button_1_7.IsShown());
                oBinder.Refresh();
                -- No Effect
                oBinder.SetTransition(oIrisOpen, 30);
                oCredits_movie_1_17.Show(not oCredits_movie_1_17.IsShown());
                oCredits_movie_1_17.GoToBeginning();
                oCredits_movie_1_17.Run(not oCredits_movie_1_17.IsRunning());
                oBinder.Refresh();
            end;

        Finished(theTarget)
            do
                oCredits_movie_1_17.GoToBeginning();
                oCredits_movie_1_17.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 526; Y is 184; Width is 52; Height is 55;
    end;
end;


object oplus_red_button_1_8 is cPictureHandler
with
    Duration is -1;
    Supplier is oplus_red_button_12_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oSoundVolume.StepIndexBy(1);
                -- No Effect
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 523; Y is 315; Width is 56; Height is 52;
    end;
end;


object onegative_red_button_1_9 is cPictureHandler
with
    Duration is -1;
    Supplier is onegative_red_button_10_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oSoundVolume.StepIndexBy(-1);
                -- No Effect
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is false;
        X is 448; Y is 318; Width is 56; Height is 50;
    end;
end;


object oquit_red_button_1_10 is cPictureHandler
with
    Duration is -1;
    Supplier is oquit_red_button_13_;
    Behavior is cVRBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(true);
                -- No Effect
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oBinder.Refresh();
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is false;
        X is 462; Y is 248; Width is 104; Height is 55;
    end;
end;


object oJumanji_movie_1_11 is cMovieHandler
with
    Supplier is oJumanji_movie_8_;
    Behavior is cVRBehavior
    has
        Finished(theTarget)
            do
                o1_red_button_1_2.Show(false);
                oBinder.Refresh();
                oJumanji_movie_1_11.Show(false);
                oBinder.SetTransition(oIrisClose, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 89; Y is 95; Width is 240; Height is 180;
    end;
end;


object oMary_movie_1_12 is cMovieHandler
with
    Supplier is oMary_movie_9_;
    Behavior is cVRBehavior
    has
        Finished(theTarget)
            do
                o1_red_button_1_2.Show(false);
                oBinder.Refresh();
                oMary_movie_1_12.Show(false);
                oBinder.SetTransition(oIrisClose, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 89; Y is 95; Width is 240; Height is 180;
    end;
end;


object oSense_movie_1_13 is cMovieHandler
with
    Supplier is oSense_movie_14_;
    Behavior is cVRBehavior
    has
        Finished(theTarget)
            do
                o1_red_button_1_2.Show(false);
                oBinder.Refresh();
                oSense_movie_1_13.Show(false);
                oBinder.SetTransition(oIrisClose, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 89; Y is 95; Width is 240; Height is 180;
    end;
end;


object oNever_movie_1_14 is cMovieHandler
with
    Supplier is oNever_movie_11_;
    Behavior is cVRBehavior
    has
        Finished(theTarget)
            do
                o1_red_button_1_2.Show(false);
                oBinder.Refresh();
                oNever_movie_1_14.Show(false);
                oBinder.SetTransition(oIrisClose, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 89; Y is 95; Width is 240; Height is 180;
    end;
end;


object omorph_movie_1_16 is cMovieHandler
with
    Supplier is omorph_movie_16_;
    Behavior is cVRBehavior
    has
        Finished(theTarget)
            do
                o1_red_button_1_2.Show(false);
                oBinder.Refresh();
                omorph_movie_1_16.Show(false);
                oBinder.SetTransition(oIrisClose, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 89; Y is 95; Width is 240; Height is 180;
    end;
end;


object oCredits_movie_1_17 is cMovieHandler
with
    Supplier is oCredits_movie_17_;
    Behavior is cVRBehavior
    has
        Finished(theTarget)
            do
                o6_red_button_1_7.Show(false);
                oBinder.Refresh();
                oCredits_movie_1_17.Show(false);
                oBinder.SetTransition(oIrisClose, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 89; Y is 95; Width is 240; Height is 180;
    end;
end;